home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / milia.dxr / 00057.ls < prev    next >
Encoding:
Text File  |  1996-03-22  |  1.3 KB  |  58 lines
  1. on exitFrame
  2.   if rollOver(2) then
  3.     set the visible of sprite 2 to 1
  4.   else
  5.     set the visible of sprite 2 to 0
  6.   end if
  7.   if rollOver(3) then
  8.     set the visible of sprite 3 to 1
  9.   else
  10.     set the visible of sprite 3 to 0
  11.   end if
  12.   if rollOver(4) then
  13.     set the visible of sprite 4 to 1
  14.   else
  15.     set the visible of sprite 4 to 0
  16.   end if
  17.   if rollOver(6) then
  18.     set the visible of sprite 6 to 1
  19.   else
  20.     set the visible of sprite 6 to 0
  21.   end if
  22.   go(the frame)
  23. end
  24.  
  25. on mouseUp
  26.   if rollOver(2) then
  27.     set the visible of sprite 2 to 1
  28.     set the visible of sprite 3 to 1
  29.     set the visible of sprite 4 to 1
  30.     set the visible of sprite 6 to 1
  31.     sound stop 1
  32.     go("Poe")
  33.   end if
  34.   if rollOver(3) then
  35.     set the visible of sprite 2 to 1
  36.     set the visible of sprite 3 to 1
  37.     set the visible of sprite 4 to 1
  38.     set the visible of sprite 6 to 1
  39.     sound stop 1
  40.     go("Pro")
  41.   end if
  42.   if rollOver(4) then
  43.     set the visible of sprite 2 to 1
  44.     set the visible of sprite 3 to 1
  45.     set the visible of sprite 4 to 1
  46.     set the visible of sprite 6 to 1
  47.     sound stop 1
  48.     go("Obra")
  49.   end if
  50.   if rollOver(6) then
  51.     set the visible of sprite 2 to 1
  52.     set the visible of sprite 3 to 1
  53.     set the visible of sprite 4 to 1
  54.     set the visible of sprite 6 to 1
  55.     go("Criadores")
  56.   end if
  57. end
  58.